VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "CConfiguracion"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
Option Explicit

Dim lusuario As New lusuario
Dim lParametro As New lParametro

Public Sub guardar(Optional bUsuario As bUsuario, Optional bparametro As bparametro)
Dim result As Integer
If Not bUsuario Is Nothing Then
    result = lusuario.cambiarClave(bUsuario)
End If
result = lParametro.actualizarTipoCambio(bparametro)
If result = UtilConstantes.OPT_DATOS_GUARDADOS Then
    utilMensaje.muestraMensaje DatosGuardados
    Unload frmConfig
End If
If result = UtilConstantes.OPT_ERROR_ENCONTRADO Then
    utilMensaje.muestraMensaje errorEncontrado
End If
End Sub


